home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fax_se1r / frmselfe.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-21  |  2.3 KB  |  71 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Begin VB.Form frmSelfExtract 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Self-Extract"
  6.    ClientHeight    =   3990
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5970
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3990
  15.    ScaleWidth      =   5970
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Ok"
  19.       Height          =   435
  20.       Left            =   2280
  21.       TabIndex        =   1
  22.       Top             =   3480
  23.       Width           =   1455
  24.    End
  25.    Begin VB.Frame Frame1 
  26.       Caption         =   "This is the file contained in this exe:"
  27.       Height          =   3255
  28.       Left            =   60
  29.       TabIndex        =   0
  30.       Top             =   60
  31.       Width           =   5835
  32.       Begin RichTextLib.RichTextBox RichTextBox1 
  33.          Height          =   2895
  34.          Left            =   120
  35.          TabIndex        =   2
  36.          Top             =   240
  37.          Width           =   5595
  38.          _ExtentX        =   9869
  39.          _ExtentY        =   5106
  40.          _Version        =   393217
  41.          ScrollBars      =   3
  42.          TextRTF         =   $"frmSelfExtract.frx":0000
  43.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  44.             Name            =   "Terminal"
  45.             Size            =   9
  46.             Charset         =   255
  47.             Weight          =   400
  48.             Underline       =   0   'False
  49.             Italic          =   0   'False
  50.             Strikethrough   =   0   'False
  51.          EndProperty
  52.       End
  53.    End
  54. Attribute VB_Name = "frmSelfExtract"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. 'If you are going to use this in a app, you must
  60. 'first contact me at aandrei@hades.ro, and you
  61. 'have to credit me on the application's box, and/or
  62. 'about box
  63. Private Sub Command1_Click()
  64. End Sub
  65. Private Sub Form_Load()
  66. SelfExtract
  67. RichTextBox1.Text = TheFile
  68. End Sub
  69. Private Sub Form_Unload(Cancel As Integer)
  70. End Sub
  71.